home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / blt1.000 / blt1 / blt-1.7-for-STk / blt.stk < prev    next >
Encoding:
Text File  |  1995-02-12  |  1.2 KB  |  38 lines
  1. ;;;;
  2. ;;;; b l t  . s t k         -- BLT package initialisation
  3. ;;;;
  4. ;;;;
  5. ;;;; Copyright (C) 1993, 1994 Erick Gallesio - I3S - CNRS / UNSA <eg@unice.fr>
  6. ;;;; 
  7. ;;;; Permission to use, copy, and/or distribute this software and its
  8. ;;;; documentation for any purpose and without fee is hereby granted, provided
  9. ;;;; that both the above copyright notice and this permission notice appear in
  10. ;;;; all copies and derived works.  Fees for distribution or use of this
  11. ;;;; software or derived works may only be charged with express written
  12. ;;;; permission of the copyright holder.  
  13. ;;;; This software is provided ``as is'' without express or implied warranty.
  14. ;;;;
  15. ;;;;
  16. ;;;;           Author: Erick Gallesio [eg@unice.fr]
  17. ;;;;    Creation date: 26-Jul-1994 10:35
  18. ;;;; Last file update: 12-Feb-1995 17:07
  19. ;;;;
  20.  
  21.  
  22. ;; STk_Blt_Init fails when winfo isn't a tk-command. `winfo` is redefined 
  23. ;; when using STklos (patched by Motoyuki Kawaba)
  24.  
  25. (define winfo-original #f)
  26.  
  27. (when (symbol-bound? 'tk:winfo)
  28.    (set! winfo-original winfo)
  29.    (set! winfo tk:winfo))
  30.  
  31. (if (symbol-bound? '|blt_versions{BLT}|)
  32.     ;; Blt table module is in the core interpreter
  33.     'blt_static
  34.     ;; Try to load blt table dynamically
  35.     (load "blt.so"))
  36. (set! winfo winfo-original)
  37.  
  38. (provide "blt")